***************** Replication of Franchino, Fabio, and Camilla Mariotto. “Bargaining Outcomes and Success in EU Economic Governance Reforms”. Political Science Research and Methods.

* Step 1 to reproduce Figure A7

*************   CREATING RELIABILITY MEASURES FOR THE IVs of TABLE 3
* success 
do "reliability measures step1"
keep *success
egen zero=anycount(success MMsuccess LCsuccess), v(0)
egen minus25=anycount(success MMsuccess LCsuccess), v(-25)
egen minus50=anycount(success MMsuccess LCsuccess), v(-50)
egen minus75=anycount(success MMsuccess LCsuccess), v(-75)
egen minus100=anycount(success MMsuccess LCsuccess), v(-100)
kappa zero minus25 minus50 minus75 minus100

* distSQ 
do "reliability measures step1"
keep *distSQ
egen zero=anycount(distSQ MMdistSQ LCdistSQ), v(0)
egen plus25=anycount(distSQ MMdistSQ LCdistSQ), v(25)
egen plus50=anycount(distSQ MMdistSQ LCdistSQ), v(50)
egen plus75=anycount(distSQ MMdistSQ LCdistSQ), v(75)
egen plus100=anycount(distSQ MMdistSQ LCdistSQ), v(100)
kappa zero plus25 plus50 plus75 plus100

* distCOM 
do "reliability measures step1"
keep *distCOM
egen zero=anycount(distCOM MMdistCOM LCdistCOM), v(0)
egen plus25=anycount(distCOM MMdistCOM LCdistCOM), v(25)
egen plus50=anycount(distCOM MMdistCOM LCdistCOM), v(50)
egen plus75=anycount(distCOM MMdistCOM LCdistCOM), v(75)
egen plus100=anycount(distCOM MMdistCOM LCdistCOM), v(100)
kappa zero plus25 plus50 plus75 plus100

* distPRES 
do "reliability measures step1"
keep *distPRES
egen zero=anycount(distPRES MMdistPRES LCdistPRES), v(0)
egen plus25=anycount(distPRES MMdistPRES LCdistPRES), v(25)
egen plus50=anycount(distPRES MMdistPRES LCdistPRES), v(50)
egen plus75=anycount(distPRES MMdistPRES LCdistPRES), v(75)
egen plus100=anycount(distPRES MMdistPRES LCdistPRES), v(100)
kappa zero plus25 plus50 plus75 plus100

* distEP 
do "reliability measures step1"
keep *distEP
egen zero=anycount(distEP MMdistEP LCdistEP), v(0)
egen plus25=anycount(distEP MMdistEP LCdistEP), v(25)
egen plus50=anycount(distEP MMdistEP LCdistEP), v(50)
egen plus75=anycount(distEP MMdistEP LCdistEP), v(75)
egen plus100=anycount(distEP MMdistEP LCdistEP), v(100)
kappa zero plus25 plus50 plus75 plus100

* MMextreme (interval)
do "reliability measures step1"
pwcorr extreme MMextreme LCextreme
spearman extreme MMextreme LCextreme
ktau extreme MMextreme LCextreme
